home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / explor2a / explorer.frm < prev    next >
Text File  |  1999-09-27  |  6KB  |  159 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmMain 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5175
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   11370
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5175
  11.    ScaleWidth      =   11370
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin MSComctlLib.TreeView DirList 
  14.       Height          =   4575
  15.       Left            =   120
  16.       TabIndex        =   1
  17.       Top             =   120
  18.       Width           =   3255
  19.       _ExtentX        =   5741
  20.       _ExtentY        =   8070
  21.       _Version        =   393217
  22.       HideSelection   =   0   'False
  23.       LabelEdit       =   1
  24.       Style           =   5
  25.       Appearance      =   1
  26.    End
  27.    Begin MSComctlLib.ImageList ImageList1 
  28.       Left            =   3720
  29.       Top             =   4440
  30.       _ExtentX        =   1005
  31.       _ExtentY        =   1005
  32.       BackColor       =   -2147483643
  33.       ImageWidth      =   16
  34.       ImageHeight     =   16
  35.       MaskColor       =   12632256
  36.       _Version        =   393216
  37.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  38.          NumListImages   =   12
  39.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  40.             Picture         =   "ExplorerfrmMain.frx":0000
  41.             Key             =   "fol"
  42.          EndProperty
  43.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  44.             Picture         =   "ExplorerfrmMain.frx":045C
  45.             Key             =   "file"
  46.          EndProperty
  47.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  48.             Picture         =   "ExplorerfrmMain.frx":0570
  49.             Key             =   "explorer"
  50.          EndProperty
  51.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  52.             Picture         =   "ExplorerfrmMain.frx":09C4
  53.             Key             =   "drv"
  54.          EndProperty
  55.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  56.             Picture         =   "ExplorerfrmMain.frx":0E18
  57.             Key             =   "dsktop"
  58.          EndProperty
  59.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  60.             Picture         =   "ExplorerfrmMain.frx":126C
  61.             Key             =   "mycomp"
  62.          EndProperty
  63.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  64.             Picture         =   "ExplorerfrmMain.frx":16C0
  65.             Key             =   "opnfol"
  66.          EndProperty
  67.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  68.             Picture         =   "ExplorerfrmMain.frx":1B18
  69.             Key             =   "cddrv"
  70.          EndProperty
  71.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  72.             Picture         =   "ExplorerfrmMain.frx":1F6C
  73.             Key             =   "remdrv"
  74.          EndProperty
  75.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  76.             Picture         =   "ExplorerfrmMain.frx":23C0
  77.             Key             =   "floppy"
  78.          EndProperty
  79.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  80.             Picture         =   "ExplorerfrmMain.frx":2814
  81.             Key             =   "netdrv"
  82.          EndProperty
  83.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  84.             Picture         =   "ExplorerfrmMain.frx":2C68
  85.             Key             =   "nethood"
  86.          EndProperty
  87.       EndProperty
  88.    End
  89.    Begin MSComctlLib.ListView DirImage 
  90.       Height          =   4575
  91.       Left            =   3480
  92.       TabIndex        =   0
  93.       Top             =   120
  94.       Width           =   7695
  95.       _ExtentX        =   13573
  96.       _ExtentY        =   8070
  97.       View            =   3
  98.       LabelWrap       =   -1  'True
  99.       HideSelection   =   -1  'True
  100.       _Version        =   393217
  101.       ForeColor       =   -2147483640
  102.       BackColor       =   -2147483643
  103.       BorderStyle     =   1
  104.       Appearance      =   1
  105.       NumItems        =   4
  106.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  107.          Text            =   "Name"
  108.          Object.Width           =   5292
  109.       EndProperty
  110.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  111.          SubItemIndex    =   1
  112.          Text            =   "Size"
  113.          Object.Width           =   2540
  114.       EndProperty
  115.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  116.          SubItemIndex    =   2
  117.          Text            =   "Type"
  118.          Object.Width           =   2540
  119.       EndProperty
  120.       BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  121.          SubItemIndex    =   3
  122.          Text            =   "Modified"
  123.          Object.Width           =   2540
  124.       EndProperty
  125.    End
  126. End
  127. Attribute VB_Name = "frmMain"
  128. Attribute VB_GlobalNameSpace = False
  129. Attribute VB_Creatable = False
  130. Attribute VB_PredeclaredId = True
  131. Attribute VB_Exposed = False
  132. Private Sub DirImage_DblClick()
  133. If DirImage.SelectedItem.SubItems(2) = TXT_DIR_TYPE_NAME Then
  134.     LoadDirectoryProfile DirImage.SelectedItem.Key
  135. End If
  136. End Sub
  137.  
  138. Private Sub DirList_DblClick()
  139. ExpandDirectory DirList.SelectedItem, DirList
  140. LoadDirectoryProfile DirList.SelectedItem.Key
  141. End Sub
  142.  
  143. Private Sub Form_Load()
  144. DirImage.SmallIcons = ImageList1
  145. DirList.ImageList = ImageList1
  146. 'DirList.SelectedItem.ExpandedImage = ImageList1 'IMG_OPENFOLDER_KEY
  147. LoadDirectoryProfile "C:\"
  148.  
  149. LoadShellPaths
  150. 'DirList.Nodes.Add , , SHELL_PATHS(1), "Desktop", IMG_DESKTOP_KEY
  151. DirList.Nodes.Add , , TXT_MYCOMP_TITLE, TXT_MYCOMP_TITLE, IMG_MYCOMP_KEY
  152. 'ExpandDirectory DirList.Nodes(1), DirList
  153. 'DirList.Nodes(1).Expanded = True
  154. GenerateMycompStuff DirList
  155.  
  156. End Sub
  157.  
  158. 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
  159.